TPUG - Toronto PET Users Group

home *** CD-ROM | disk | FTP | other *** search

/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mb.d64 / bible clues.c (.txt) next >

Wrap

Commodore BASIC | 2007-02-04 | 12KB | 299 lines

10 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [160][160][160][160][160][160][160][160][221]PROGRAM DEVELOPED BY [221] 12 [143]"(null)JOHN KRIEGELSTEIN (null) CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)4453 CONSTITUTION LANE (null) 14 REM"[221]LONGVIEW, WASH. 98632 [221] [221] [221] 16 [143]"(null)COPYING GRANTED FOR SCHOOL (null) (null)OR PERSONAL USE ONLY; NOT (null) 18 REM"[221]FOR RESALE. [221] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 19 [151]53280,6:[151]53281,1:[153]"" 20 [153]"LOAD";[163]14);"WELCOME TO" 25 [153] [163]13);"ORTANTANTANTANTANTANTANTANTANTANTAN^ 26 PRINT TAB(13);"[221]BIBLE CLUES[221] 27 [153] [163]13);"/TANTANTANTANTANTANTANTANTANTANTANEXP 30 PRINT TAB(8);"DO YOU NEED INSTRUCTIONS? 35 [161] A$:[139] A$[178]"" [167] 35 40 [139] [168](A$[178]"Y" [176] A$[178]"N")[167] 35 45 [139] A$[178]"N" [167] 100 50 [153]"LOADI WILL GIVE YOU SOME CLUES TO SOME BIBLEITEMS OR PEOPLE AND YOU "; 55 [153]"ARE TO TYPE THE NAME OF THAT ITEM OR PERSON. YOU WILL BE TIMED "; 60 [153]"BY A CLOCK STARTING AT 75 SECONDS AND RUNNING DOWN. YOU WILL " 65 [153]"GET THE NUMBER OF POINTS SHOWING WHEN YOU HIT RETURN AFTER "; 70 [153]"TYPING A CORRECT ANSWER. EACH GAME HAS 5 SETS OF CLUES FOR "; 75 [153]"EACH PLAYER TO ANSWER. 90 PRINT"":GOSUB 10200 100 NS=50:DIM A$(NS,4),CL$(NS,5),N(NS),SQ(NS) 102 PRINT"[147] HOW MANY PLAYERS (UP TO 6)?[144]"; 104 GET A$:IF A$="" THEN 104 106 PRINT" ";A$ 107 ZR=RND(-RND(VAL(A$))) 108 IF VAL(A$)>0 AND VAL(A$)<7 THEN NP=VAL(A$):PRINT:PRINT:GOTO 130 110 PRINT" SORRY, 1 TO 6. NOT [144]";A$ 112 FOR W=1 TO 1500:NEXT:GOTO102 130 FOR X=1 TO NP 135 PRINT" PLAYER #"+RIGHT$(STR$(X),LEN(STR$(X))-1)+"'S NAME"; 140 INPUT" X[157][157][157]";PL$(X):IF PL$(X)="X" THEN PRINT"[145]";:GOTO 135 145 NEXT 160 PRINT"[147][159] JUST A MOMENT WHILE I GET READY. 200 [129] Z[178]1 [164] NS 205 [129] Y[178]1 [164] 4:[135] A$(Z,Y):[130] Y 210 [129] Y[178]1 [164] 5:[135] CL$(Z,Y):[130] Y 215 [130] Z 220 [129] X[178]1 [164] NS 225 Z[178][181]([187](1)[172]NS)[170]1:[139] N(Z)[178]1 [167] 225 230 N(Z)[178]1:SQ(X)[178]Z:[130] 240 [129] GM[178]1 [164] 5 250 [129] P[178]1 [164] NP 260 [153]"LOADSTOP GET READY "; PL$(P):[153]"CLR IT IS YOUR TURN." 270 [129] W[178]1 [164] 3000:[130] 310 C[178]C[170]1:Z[178]SQ(C):[141] 1000 320 [153]"LOAD" 325 [153]"";CL$(Z,1) 327 [141] 1020 328 [139] [197](CT$)[179]1 [167] 600 330 [139] [197](CT$)[179]67 [167] [153]"";CL$(Z,2) 335 [139] [197](CT$)[179]59 [167] [153]"STOP";CL$(Z,3) 340 [139] [197](CT$)[179]38 [167] [153]"SYS";CL$(Z,4) 345 [139] [197](CT$)[179]20 [167] [153]"CLR";CL$(Z,5) 350 [141] 1020 355 [139] [197](CT$)[179]1 [167] 600 357 [153]" WHAT IS YOUR GUESS? VERIFY"[170]AN$; 360 [161] A$:[139] A$[178]"" [167] 325 365 [139] A$[178][199](13) [167] 380 367 [139] A$[179][177][199](20)[167] AN$[178]AN$[170]A$:[153] A$:[137]325 370 [139] [195](AN$)[177]0 [167] AN$[178][200](AN$,[195](AN$)[171]1):[153]"CMD CMD":[137] 325 375 [137] 325 380 [139] AN$[178]A$(Z,1) [176] AN$[178]A$(Z,2) [176] AN$[178]A$(Z,3) [176] AN$[178]A$(Z,4) [167] 400 385 [141] 1500 390 AN$[178]"":[137] 320 400 [141] 2400 460 AN$[178]"":[137] 660 600 [153]"LOAD"; 601 [153]" TAB(TAB(TAB((null)TAB(TAB( TAB(TAB(TAB((null)TAB(TAB( (null)(null)CLOSECLOSE(null)(null) (null)TAB(TAB(TAB(TAB( 602 PRINT" [165] [165] [165][160][205][206][160][167] [165] 603 [153]" FNCLOSECLOSECLOSECLOSECLOSECLOSECLOSEFNCLOSECLOSECLOSECLOSEFNCLOSECLOSECLOSECLOSETHEN (null)TOTO 604 PRINT" [165] [165] [165] [167] [165] 605 [153]" FNCLOSECLOSECLOSECLOSECLOSECLOSECLOSEFN FN THEN FN 606 PRINT" [165] [164][164][164][204][164][164] [165] [167] [204][164][164][164][164] 607 [153]" 608 PRINT" [163][163][163][207][163][163][160][160][206][163][163][163][163][205] 609 [153]" FNCLOSECLOSECLOSECLOSEFN 610 PRINT" [165][160][160][160][160][205][164][164][164][164] 611 [153]" FNCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null) 612 PRINT" [165][160][160][160][160][160][160][160][160][160][167] 613 [153]" TOTOTO(null)TOTOCLOSECLOSE(null)TOTOTOTO(null) 614 PRINT" 615 [153]" FNCLOSECLOSECLOSECLOSETHENCLOSECLOSE(null)TAB(TAB(TAB(TAB((null) 616 PRINT" [165][160] [167] [165] [167] 617 [153]" FN THEN (null)TOTOTOTO(null) 618 PRINT" [165][160][160][160][160][167][160][160][165] 619 [153]" FNCLOSECLOSECLOSECLOSETHENCLOSECLOSEFN 620 PRINT" [205][164][164][164][164][206][160][160][165] 630 [129] W[178]1 [164] 1500:[130]:[129] V[178]1 [164]26:[153]:[129] W[178]1 [164] 50:[130]:[130] 640 [153]" YOU GET NO POINTS THIS TIME 645 FOR W=1 TO 1000:NEXT:GOSUB 2000 650 FOR W=1 TO 6000:NEXT 660 NEXT P:NEXT GM 700 REM" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 701 [143]" (null)SCORE PRINTER(null) 702 REM" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 710 [153]"LOAD";[163]10);"STOPHERE ARE YOUR SCORES 720 PRINT:PRINT:FOR Y=1 TO NP:FOR X=1 TO NP 725 IF TP(X)>=TP(X+1) AND TP(X)>=HS THEN Q=X:HS=TP(X) 730 NEXT 735 PRINT TAB(10);"";PL$(Q);TAB(26);TP(Q):TP(Q)=0:HS=0 740 NEXT 750 PRINT TAB(12);"[158]HAVE A GOOD DAY! 760 [129] CX [178]1 [164] 100 770 [151]53280,[181]([187](1)[172]15) 775 [129] TM[178]1 [164] 50:[130] TM 780 [130] CX 999 [128] 1000 [143]" ORTANTANTANTANTANTANTANTANTANTANTANTANTAN^ 1001 REM" [221]WRONG ROUTINE[221] 1002 [143]" /TANTANTANTANTANTANTANTANTANTANTANTANTANEXP 1010 T1=TI:POKE 32880,55:POKE 32881,53 1020 CT$=STR$(75-(INT((TI-T1)/60))):IF LEN(CT$)<3 THEN POKE 32880,48:GOTO 1030 1025 POKE 32880,VAL(LEFT$(CT$,2))+48 1030 POKE 32881,VAL(RIGHT$(CT$,1))+48 1050 RETURN 1500 REM" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 1501 [143]" (null)WRONG ROUTINE(null) 1502 REM" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 1510 [153]"LOAD":[141] 1020 1520 [153]" TOTOTO 1521 PRINT" [206] [205] 1522 [153]" (null)FN(null)CLOSE(null)THENRIGHT$ 1523 PRINT" [202][165][160][193][160][167][203] 1524 [153]" (null)(null)TANRIGHT$(null) 1525 PRINT" [205][164][206] 1526 [153]"" 1530 [153]" (null)TAB(TAB(TAB((null)CLOSE(null)TAB(TAB(TAB((null)CLOSE(null)TAB(TAB(TAB((null)CLOSE(null)TAB(TAB(TAB((null)CLOSEFNCLOSECLOSECLOSETHEN 1531 PRINT" [165] [165] [167] [165] [167] [165] [167] [165] [167] 1532 [153]" FN FN THEN FN THEN FN THEN (null) (null) 1533 PRINT" [205][164][164][164][160][160][165][160][160][160][167][160][204][164][164][164][206][160][204][164][164][164][206] [205][164][206] 1534 [153]" (null) FNCLOSECLOSECLOSETHENCLOSEFNCLOSECLOSECLOSE(null)CLOSEFNCLOSECLOSECLOSE(null)CLOSECLOSECLOSE(null) 1535 PRINT" [167][160][165][160][160][160][167][160][165][160][160][160][167][160][165][160][160][160][167][160][160][160][221] 1536 [153]" THENCLOSEFNCLOSECLOSECLOSETHENCLOSEFNCLOSECLOSECLOSETHENCLOSEFN THENCLOSECLOSECLOSE(null) 1537 PRINT" [205][164][164][164][206] [205][164][164][164][206][160][165][160][160][160][167][160][165][160][160][160][167][160][160][160][221] 1540 [129] W[178]1 [164] 1500:[130]:[142] 2000 [143]" ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ 2001 REM" [221]RIGHT ANSWER PRINTER[221] 2002 [143]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP 2010 PRINT"[144]THE CORRECT ANSWER WAS 2015 [153]" ";A$(Z,1) 2020 [129] X[178]2 [164] 4:PD[178]0:[129] Y[178]X[171]1 [164] 1 [169][171]1:[139] A$(Z,X)[178]A$(Z,Y) [167] PD[178]1 2030 [130] Y:[139] PD[178]0 [167] [153]" ORCMDCMDCMDCMD";A$(Z,X) 2035 [130] X:[142] 2100 [143]" ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ 2101 REM" [221]RANDOM SCRAMBLER[221] 2102 [143]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP 2110 FOR X=1 TO NS:N(X)=0:NEXT 2115 FOR X=1 TO NS 2120 N=INT(RND(-RND(0))*NS)+1:IF N(N)=0 THEN N(N)=1:SQ(X)=N:GOTO 2130 2125 GOTO 2120 2130 NEXT 2135 RETURN 2400 REM" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 2401 [143]" (null)RIGHT ANSWER ROUTINE(null) 2402 REM" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 2410 [153]"LOAD":[141] 1020 2420 [153]"";[163]13);"YOU ARE RIGHT!" 2425 [153]"";[163]13);"THAT GIVES YOU 2430 PRINT"";TAB(18);CT$:PRINT TAB(17);"POINTS 2435 [153] [163]18);"ONONONONONORTANTAN^CMDCMDCMDCMD(null)(null)CMDCMDCMDCMD/TANTANEXP 2440 TP(P)=TP(P)+VAL(CT$):PRINT"";TAB(8);"YOUR TOTAL SCORE IS[144]";TP(P) 2445 FOR W=1 TO 4000:NEXT:RETURN 8997 REM" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 8998 [143]" (null)ANSWERS AND CLUES(null) 8999 REM" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 9000 [131] AX HEAD,AXE HEAD,AXHEAD,AXEHEAD,ELIJAH'S TIME,MINERAL,WAS BORROWED 9001 [131] CAME OFF, FLOATED 9002 [131] TABLES OF STONE,COMMANDMENTS,TEN COMMANDMENTS,10 COMMANDMENTS, EXODUS 9003 [131] MOSES HELD THEM, MINERAL,GOD'S FINGER WROTE THEM,BROKEN 9004 [131] SERPENT,SNAKE,SNAKE,SNAKE,GENESIS,ANIMAL,IN GARDEN OF EDEN,LUCIFER 9005 [131] REPTILE 9006 [131] ESAU,ESAU,ESAU,ESAU,GENESIS,ABRAHAM'S GRANDSON,TWIN,HAIRY 9007 [131] SOLD BIRTHRIGHT 9008 [131] POTIPHAR,POTIPHAR,POTIPHAR,POTIPHAR,GENESIS,EGYPTIAN,JOSEPH'S MASTER 9009 [131] CAPTAIN OF PHARAOH'S GUARD,HUSBAND OF POTIPHAR'S WIFE 9010 [131] ARK,NOAH'S ARK,ARK,ARK,GENESIS,PLANT PRODUCT,CYPRESS WOOD 9011 [131] IN THE DAYS OF NOAH,BIG BOAT 9012 [131] NILE RIVER,NILE,NILE,NILE,EXODUS,WATER,IN EGYPT,RIVER 9013 [131] TURNED TO BLOOD 9014 [131] AARON'S ROD,AARON'S ROD THAT BUDDED,ROD,ROD THAT BUDDED,EXODUS 9015 [131] MIRACLE,STICK,BELONGED TO AARON,BLOSSOMED 9016 [131] GIDEON,GIDEON,GIDEON,GIDEON,JUDGES,MAN,MET ANGEL AT THRESHING PLACE 9017 [131] COMMANDED 300 SOLDIERS,HAD A WET--DRY FLEECE 9018 [131] SAMSON,SAMSON,SAMSON,SAMSON,JUDGES,MANOAH'S SON,MADE A RIDDLE 9019 [131] KILLED A LION,STRONGEST MAN 9020 [131] RUTH,RUTH,RUTH,RUTH,MAHLON'S WIDOW,GREAT-GRANDMOTHER OF DAVID 9021 [131] MOABITE,NAOMI'S DAUGHTER-IN-LAW,MARRIED BOAZ 9022 [131] SAMUEL,SAMUEL,SAMUEL,SAMUEL,ASKED OF GOD,KING SAUL'S ADVISOR 9023 [131] SON OF ELKANAH,LIVED IN TABERNACLE,TAUGHT BY ELI 9024 [131] SLING,SLING,SLING,DAVID'S SLING,I SAMUEL,DAVID USED IT 9025 [131] USED TO KILL GOLIATH,WEAPON,FIVE SMOOTH STONES FIT IT 9026 [131] WITCH,WITCH,WITCH,WITCH OF ENDOR,I SAMUEL,WOMAN 9027 [131] SAUL SOUGHT HELP FROM,EVIL SPIRIT CONTROLLED HER,WIZARD 9028 [131] UZZAH,UZZAH,UZZAH,UZZAH,II SAMUEL,MAN,SAW THE ARK,DISOBEYED GOD 9029 [131] TOUCHED ARK AND DIED 9030 [131] ABSOLOM,ABSOLOM,ABSOLOM,ABSOLOM,II SAMUEL,MAN,DAVID'S RIVAL 9031 [131] DAVID'S SON,HUNG IN TREE FROM HAIR 9032 [131] SOLOMON,SOLOMON,SOLOMON,SOLOMON,I KINGS,KING,BUILT TEMPLE 9033 [131] DAVID'S SON,ASKED FOR WISDOM 9034 [131] SOLOMON'S TEMPLE,TEMPLE,TEMPLE,TEMPLE,I KINGS,IN JERUSALEM,BUILDING 9035 [131] BUILT BY SOLOMON,PLACE OF WORSHIP 9036 [131] CALF,GOLDEN CALF,CALF,CALF,EXODUS,CHILDREN OF ISRAEL MADE IT 9037 [131] WAS WORSHIPPED,WAS AT SINAI,IDOL 9038 [131] ELIJAH,ELIJAH,ELIJAH,ELIJAH,I KINGS,PROPHET,TALKED TO AHAB 9039 [131] RODE A CHARIOT,FED BY RAVENS 9040 [131] MT CARMEL,MT. CARMEL,MOUNT CARMEL,CARMEL,I KINGS,GEOGRAPHICAL FEATURE 9041 [131] ELIJAH WAS ON IT,FIRE CAME FROM HEAVEN TO IT,MOUNTAIN 9042 [131] CAIN,CAIN,CAIN,CAIN,GENESIS,FIRST BORN,GATHERER OF FRUITS 9043 [131] ADAM & EVE'S SON,WAS CURSED 9044 [131] BURNING BUSH,BUSH THAT BURNED,BUSH,BUSH,EXODUS,FOUND BY SHEPHERD 9045 [131] HOLY GROUND AROUND IT,IN WILDERNESS,FIRE ON IT 9046 [131] RED SEA,RED SEA,RED SEA,REDSEA,EXODUS,DESTROYED ENEMIES,WATER 9047 [131] MOSES'S ROD HELD OVER IT,DRY GROUND THROUGH IT 9048 [131] PRISON GATES,GATES OF PRISON,GATES,GATES OPENED BY ANGEL,ACTS 9049 [131] PETER WENT THROUGH THEM,PART OF PRISON,EXITS,ANGEL OPENED FOR PETER 9050 [131] JESUS'S WHIP,WHIP,ROPE,SCOURGE,GOSPELS,USED IN TEMPLE,JESUS USED IT 9051 [131] MEN RAN FROM IT,PUNISHING INSTRUMENT 9052 [131] 10 LEPERS,TEN LEPERS,LEPERS,LEPERS,GOSPELS,DISEASED PEOPLE,UNCLEAN 9053 [131] WERE HEALED,NINE OF THEM THANKLESS 9054 [131] PETER,PETER,PETER,PETER,GOSPELS,WRITER,DISCIPLE 9055 [131] TOOK EYES OFF JESUS,HEARD ROOSTER 9056 [131] STONE,GRAVESTONE,STONE,TOMBSTONE,GOSPELS,MOVED FOR CHRIST,MINERAL 9057 [131] JESUS WEPT NEAR IT,LAZARUS CAME FROM BEHIND IT 9058 [131] COIN,TAX MONEY,TEMPLE TAX COIN,MONEY,GOSPELS,PETER FISHED FOR IT 9059 [131] PHARISEES ASKED FOR IT,MINERAL,FOUND IN FISH'S MOUTH 9060 [131] DEN,LION'S DEN,DEN OF LIONS,LIONS DEN,DANIEL SAW IT,ANGEL CAME HERE 9061 [131] DEVOTED WORSHIPPER PUT HERE,PLACE OF PUNISHMENT,HOME OF LIONS 9062 [131] WRITING ON THE WALL,WRITING,HANDWRITING ON THE WALL,WRITING,DANIEL 9063 [131] BELSHAZZAR SAW IT,HAND MADE,DANIEL READ IT,MENE MENE TEKEL UPHARSIN 9064 [131] GOLDEN IMAGE,IMAGE,GOLDEN IDOL,IDOL,DANIEL,NEBUCHADNEZZAR MADE IT 9065 [131] METALLIC,WAS SEEN IN A DREAM,GOLDEN 9066 [131] FIERY FURNACE,FURNACE,FURNACE,FURNACE,DANIEL,NEBUCHADNEZZAR SAW IT 9067 [131] MINERAL,THREE WORTHIES PUT IN IT,MADE SEVEN TIMES HOTTER 9068 [131] ADAM,ADAM,ADAM,ADAM,GENESIS,MAN,SPOKE TO GOD,TALL 9069 [131] GOD CREATED HIM 9070 [131] JOHN,JOHN,JOHN,JOHN THE BAPTIST,GOSPELS,MAN,HERODIAS DISLIKED HIM 9071 [131] ATE LOCUST AND HONEY,BAPTIZED JESUS 9072 [131] THE THREE WISE MEN,THE WISE MEN,THREE WISE MEN,WISE MEN,GOSPELS 9073 [131] TRAVELED,RODE CAMELS,FOLLOWED A STAR,GAVE RICH GIFTS TO JESUS 9074 [131] MARY,MARY,MARY,MARY,GOSPELS,WOMAN,LIVED DURING THE TIME OF JESUS 9075 [131] GABRIEL TALKED TO HER,MOTHER OF JESUS 9076 [131] SHEEP,SHEEP,SHEEP,SHEEP,GOSPELS,ANIMAL,JESUS LIKENED TO 9077 [131] HEARD ANGELS SING,SHEPHERDS CARED FOR 9078 [131] GABRIEL,GABRIEL,GABRIEL,GABRIEL,GOSPELS,MESSENGER,SPOKE TO MARY 9079 [131] SPOKE TO JESUS,ANGEL 9080 [131] STABLE,STABLE,BARN,BARN,GOSPELS,IN BETHLEHEM,PLACE TO KEEP ANIMALS 9081 [131] MARY AND JOSEPH SLEPT HERE,BIRTHPLACE OF JESUS 9082 [131] BETHLEHEM,BETHLEHEM,BETHLEHEM,BETHLEHEM,GOSPELS,TOWN,CITY OF DAVID 9083 [131] STAR SHONE OVER,BIRTHPLACE OF JESUS 9084 [131] MANGER,MANGER,MANGER,MANGER,GOSPELS,MADE FROM WOOD,FEEDER 9085 [131] JESUS BORROWED IT,BABY JESUS WAS LAID IN IT 9086 [131] STAR,STAR OF BETHLEHEM,STAR OF THE EAST,BETHLEHEM STAR,GOSPELS 9087 [131] WAS FOLLOWED,TOLD OF JESUS'S COMING,LED TO BETHLEHEM,SHONE IN SKY 9088 [131] DONKEY,DONKEY,DONKEY,DONKEY,GOSPELS,ANIMAL,BEAST OF BURDEN 9089 [131] WENT TO BETHLEHEM AND EGYPT,JESUS RODE UPON 9090 [131]JOSEPH,JOSPEH,JOSEPH,JOSEPH,GOSPELS,MAN,LIVED IN NAZARETH 9091 [131] TOOK HIS WIFE TO BETHLEHEM,CARPENTER 9092 [131] JESUS,JESUS,JESUS,JESUS,GOSPELS,MAN,LIVED IN NAZARETH 9093 [131] CARPENTER'S SON,SON OF GOD 9094 [131] SHEPHERDS,SHEPHERDS,SHEPHERDS,SHEPHERDS,GOSPELS,MEN 9095 [131] KNEW ABOUT JESUS BIRTH,HEARD ANGELS SING,CARED FOR SHEEP 9096 [131] DOVE,DOVE,DOVE,DOVE,GOSPELS,ANIMAL,JOHN THE BAPTIST SAW IT 9097 [131] WAS AT JESUS'S BAPTISM,BIRD WHICH STANDS FOR PEACE 9098 [131] MOSES,MOSES,MOSES,MOSES,GENESIS,MAN,EGYPTIAN PRINCE,AARON'S BROTHER 9099 [131] FLOATED IN BASKET BOAT 10000 [153]"LOADCLUE SETS ARE ORGANIZED AS FOLLOWS 10005 PRINT" TWO CONSECUTIVE LINE NUMBERS PER SET 10010 [153]" FOUR ANSWERS SEPARATED BY COMMAS 10015 PRINT" FIVE CLUES SEPARATED BY COMMAS 10099 [141] 10200 10100 NS[178]50:[134] A$(NS,4),CL$(NS,5) 10101 [153]"GIVE ME A SECOND PLEASE.":[129] Z[178]1 [164] NS 10102 [129] Y[178]1 [164] 4:[135] A$(Z,Y):[130] 10103 [129] Y[178]1 [164] 5:[135] CL$(Z,Y):[130] 10105 [130] 10107 LN[178]9000 10110 [129] Z[178]1 [164] NS:[153]"LOADLINE NUMBERS";LN;"&";LN[170]1;"":LN[178]LN[170]2 10111 [129] Y[178]1 [164] 4:[153] A$(Z,Y):[130] 10112 [153]"":[129] Y[178]1 [164] 5:[153] CL$(Z,Y):[130] 10113 [141] 10200 10115 [130] 10199 [128] 10200 [153]"HIT RETURN TO CONTINUE 10205 FOR CL=1 TO 10:GET AN$:NEXT 10210 GET AN$:IF AN$<>CHR$(13) THEN 10210 10215 RETURN 20000 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 20001 [143]"(null)PROGRAM DEVELOPED BY (null) 20002 REM"[221]JOHN KRIEGELSTEIN [221] 20003 [143]"(null) (null) 20004 REM"[221]FEBRUARY 1982 [221] 20005 [143]"(null) (null) 20006 REM"[221]OREGON CONFERENCE OF SDA [221] 20007 [143]"(null)COMPUTER CLUB (null) 20008 REM"[221]13400 SE 97TH AVE [221] 20009 [143]"(null)CLACKAMAS, OREGON 97015 (null) 20010 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]